home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
actform
/
frmstret.frm
< prev
next >
Wrap
Text File
|
1999-06-09
|
2KB
|
88 lines
VERSION 5.00
Object = "{D03D0B40-1D01-11D2-9399-E83A09C10000}#1.0#0"; "RESIZE.OCX"
Begin VB.Form frmStretch
Caption = "Demo Stretch Mode"
ClientHeight = 4515
ClientLeft = 105
ClientTop = 390
ClientWidth = 5790
LinkTopic = "Form1"
ScaleHeight = 4515
ScaleWidth = 5790
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox Check1
Caption = "Stretch label text font as well"
Height = 495
Left = 240
TabIndex = 5
Top = 2880
Width = 3375
End
Begin VB.CommandButton Command1
Caption = "OK"
Height = 495
Left = 1920
TabIndex = 4
Top = 3600
Width = 2055
End
Begin VB.TextBox Text2
Height = 495
Left = 1920
TabIndex = 3
Text = "Text2"
Top = 1560
Width = 2295
End
Begin VB.TextBox Text1
Height = 615
Left = 1920
TabIndex = 1
Text = "Text1"
Top = 480
Width = 2295
End
Begin RESIZELib.Resize Resize1
Left = 0
Top = 3840
_Version = 131073
_ExtentX = 847
_ExtentY = 847
_StockProps = 0
ResizeInfo = "frmStretch.frx":0000
Stretch = 1
StretchFont = 1
End
Begin VB.Label Label2
Caption = "Password:"
Height = 375
Left = 360
TabIndex = 2
Top = 1680
Width = 1095
End
Begin VB.Label Label1
Caption = "Name:"
Height = 495
Left = 360
TabIndex = 0
Top = 600
Width = 975
End
End
Attribute VB_Name = "frmStretch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
Resize1.StretchFont = Check1.Value
frmStretch.Refresh
End Sub
Private Sub Form_Load()
Check1.Value = Resize1.StretchFont
End Sub